home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog68 < prev    next >
Encoding:
Text File  |  1995-06-29  |  388 b   |  24 lines
  1. # SpinButton
  2.  
  3. proc changedSpin {} {
  4.     puts stdout "spin spun"
  5. }
  6.  
  7. xtAppInitialize -class Program
  8.  
  9. xmSpinBox .spin managed
  10.  
  11. # -values {Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec} \
  12.  
  13. xmTextField .spin.text managed \
  14.     -values {Jan Feb} \
  15.     -numValues 2 \
  16.     -spinBoxChildType string \
  17.     -editable false
  18.  
  19. .spin.text valueChangedCallback changedSpin
  20.  
  21. . realizeWidget
  22.  
  23. . mainLoop
  24.